home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / includes.arc / STDDCL.RPG < prev    next >
Encoding:
Text File  |  1991-12-04  |  1.9 KB  |  30 lines
  1.      C                     MOVE '1'       CANCEL  1        Logical Cancel
  2.      C                     MOVE '0'       BOF     1        Begining of file
  3.      C                     MOVE '0'       BOF1    1        Begining of file
  4.      C                     MOVE '0'       BOF2    1        Begining of file
  5.      C                     MOVE '0'       BOF3    1        Begining of file
  6.      C                     MOVE '0'       BOF4    1        Begining of file
  7.      C                     MOVE '0'       EOF     1        End of file
  8.      C                     MOVE '0'       EOF1    1        End of file
  9.      C                     MOVE '0'       EOF2    1        End of file
  10.      C                     MOVE '0'       EOF3    1        End of file
  11.      C                     MOVE '0'       EOF4    1        End of file
  12.      C                     MOVE '0'       NF      1        File Not Found
  13.      C                     MOVE '0'       NF1     1        File Not Found
  14.      C                     MOVE '0'       NF2     1        File Not Found
  15.      C                     MOVE '0'       NF3     1        File Not Found
  16.      C                     MOVE '0'       NF4     1        File Not Found
  17.      C                     MOVE '1'       ON      1        Logical ON
  18.      C                     MOVE '0'       OFF     1        Logical OFF
  19.      C                     MOVE 'Y'       YES     1        Literal YES
  20.      C                     MOVE 'N'       NO      1        Literal NO
  21.      C                     MOVE 'a'       AM      1        Literal AM
  22.      C                     MOVE 'p'       PM      1        Literal PM
  23.      C                     MOVE '0'       RDONLY  1        Read Only?
  24.       /SPACE
  25.      C                     Z-ADD0         X       70       Work var X
  26.      C           *LIKE     DEFN X         W
  27.      C           *LIKE     DEFN X         Y
  28.      C           *LIKE     DEFN X         Z
  29.      C           *LIKE     DEFN X         RRN
  30.